home *** CD-ROM | disk | FTP | other *** search
/ EnigmA Amiga Run 1996 March / EnigmA AMIGA RUN 05 (1996)(G.R. Edizioni)(IT)[!][issue 1996-03][Skylink CD IV].iso / earcd / program / ddmoduls.lha / dd_Modules / dd_graphics / dd_maxTextLenTest.e < prev   
Text File  |  1995-03-01  |  332b  |  17 lines
  1. MODULE '*dd_maxTextLen'
  2.  
  3. MODULE 'graphics/text'
  4.  
  5. PROC main()
  6.   DEF textfont,x
  7.   IF textfont:=OpenFont(['topaz.font',8,0,0]:textattr)
  8.     x:=maxTextLen(['New',
  9.                    'Top',
  10.                    'Bottom',
  11.                    'Edit...'],textfont)
  12.     Delay(200)
  13.     CloseFont(textfont)
  14.   ENDIF
  15.   PrintF('max=\d\n',x)
  16. ENDPROC
  17.